home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / g_main.has < prev    next >
Encoding:
Text File  |  1998-09-07  |  3.6 KB  |  187 lines
  1. *---------------------------------------
  2. *
  3. *    éfé`élédü@élé`éhém
  4. *
  5. *    by Shiroh Nakaya
  6. *
  7. *---------------------------------------
  8.  
  9.     .cpu    68000
  10.  
  11.     .include    OSU.H
  12.     .include    human_c.inc
  13.  
  14.     .xdef    game_main
  15.  
  16.     .xref    kan_init
  17.     .xref    joh_init
  18.     .xref    han_init
  19.     .xref    jui_init
  20.     .xref    gri_init
  21.     .xref    dan_init
  22.     .xref    nan_init
  23.     .xref    bob_init
  24.     .xref    gr2_init
  25.  
  26.     .xref    pcg_data
  27.     .xref    pal_data
  28.     .xref    adpcm_data
  29.  
  30. *---------------------------------------
  31.     .text
  32.     .even
  33. *---------------------------------------
  34.     .include    title.inc        * â^âCâgâïò\Īâïü[â`âô
  35. *---------------------------------------
  36.     .include    c_init.inc        * âvâîâCâäü[æIæ≡âïü[â`âô
  37. *---------------------------------------
  38.     .include    joy_c.inc        * âRâôâgâìü[âëôⁿù═
  39. *---------------------------------------
  40.     .include    flag_m.inc        * âLâââëâNâ^ô«ì∞
  41. *---------------------------------------
  42.     .include    vs_m.inc        * âèâAâïâ^âCâÇÅêù¥
  43. *---------------------------------------
  44.     .include    vs_h.inc        * æ╬Éφâéü[âhÅêù¥ 
  45. *---------------------------------------
  46.     .include    vs_c.inc        * ébéoétÉφâéü[âhÅêù¥
  47. *---------------------------------------
  48. *    âQü[âÇâüâCâô
  49. *
  50. game_main:
  51.     clr.w    -(sp)                * ânâCâXâRâAâìü[âh
  52.     pea.l    file_name
  53.     .dc.w    $FF3D                * DOS _OPEN
  54.     addq.l    #6,sp
  55.     move.w    d0,d1
  56.     bmi    game_title
  57.  
  58.     move.l    #4,-(sp)
  59.     pea.l    high_score
  60.     move.w    d1,-(sp)
  61.     .dc.w    $FF3f                * DOS _READ
  62.     lea.l    10(sp),sp
  63.  
  64.     move.w    d1,-(sp)
  65.     .dc.w    $FF3E                * DOS _CLOSE
  66.     addq.l    #2,sp
  67.  
  68.     lea.l    chara_data,a5            * é`éTé═Åφé╔âLâââëâNâ^âfü[â^é╠ɵô¬é≡Äwé╖
  69.  
  70. game_title:
  71.     bsr    title_display            * â^âCâgâïò\Īé¿éµé╤âfâé
  72.     tst.w    d0
  73.     beq    game_exit
  74. main_chara_select:
  75.     bsr    chara_init            * âLâââëâNâ^æIæ≡
  76.     tst.w    d0
  77.     beq    game_title
  78.  
  79.     movea.l    #pal_data+320,a2        * ô┴ÄΩî°ë╩âpâîâbâgÉ▌ÆΦ
  80.     movea.l    #SP_PALETTE+96,a6
  81.     moveq.l    #32-1,d0
  82. @@:
  83.     move.l    (a2)+,(a6)+
  84.     dbra    d0,@b
  85.  
  86.     lea.l    v_sp_reg,a6            * ë╝æzâXâNâìü[âïâîâWâXâ^é≡âNâèâA
  87.     move.w    #70-1,d0
  88. @@:
  89.     clr.l    (a6)+
  90.     dbra    d0,@b
  91.  
  92.     move.w    c_or_h(pc),d0            * èeâéü[âhÅêù¥é╓
  93.     add.w    d0,d0
  94.     move.w    game_mode(pc,d0.w),d0
  95.     jsr    game_mode(pc,d0.w)
  96.  
  97.     bra    main_chara_select
  98.  
  99. game_exit:
  100.     rts
  101. *---------------------------------------
  102.     .even
  103. game_mode:
  104.     .dc.w    vs_cpu-game_mode,vs_human-game_mode
  105. chara_tbl:
  106.     .dc.l    kan_init,joh_init,han_init,jui_init
  107.     .dc.l    gri_init,dan_init,nan_init,bob_init
  108.     .dc.l    gr2_init
  109. flag_bra:
  110.     .dc.l    flag_0,flag_1,flag_2,flag_0,flag_4,flag_5,flag_6,flag_7,flag_8
  111.     .dc.l    flag_9
  112. c_or_h:
  113.     .dc.w    1
  114. go_adpcm:
  115.     .dc.l    0
  116. high_score:
  117.     .dc.w    0
  118. stage_high_score:
  119.     .dc.w    0
  120. demo_mess:
  121.     .dc.b    'PRESS 1P OR 2P TRIGGER',0
  122.     .even
  123. mode_select_mess_1:
  124.     .dc.b    'PUSH 1P TRIGGER VS CPU',0
  125.     .even
  126. mode_select_mess_2:
  127.     .dc.b    'PUSH 2P TRIGGER VS HUMAN',0
  128.     .even
  129. file_name:
  130.     .dc.b    'KENKA2.SCO',0
  131.     .even
  132. go_mess:
  133.     .dc.b    'éfénüI',0
  134.     .even
  135. esc_mess:
  136.     .dc.b    'PUSH [ESC]KEY to EXIT',0
  137.     .even
  138. select_mess:
  139.     .dc.b    'Élò¿æIæ≡',0
  140.     .even
  141. grid_mess_1:
  142.     .dc.b    'évé`éqéméhéméfüI',0
  143.     .even
  144. grid_mess_2:
  145.     .dc.b    'éñé┬ü[ÉlùêÅPüIîéöjé╣éµüI',0
  146.     .even
  147. pause_mess:
  148.     .dc.b    'êΩÄ₧ÆΓÄ~ÆåüI',0
  149.     .even
  150. end_mess_1:
  151.     .dc.b    'é¿é▀é┼é╞éñé▓é┤éóé▄é╖üI',0
  152.     .even
  153. end_mess_2:
  154.     .dc.b    'éñé┬ü[ÉlÉNù¬é⌐éτÆnïàé≡Äτé┴é╜',0
  155.     .even
  156. end_mess_3:
  157.     .dc.b    'âAâôâ^é¬ìíô·é⌐éτæσô¥ù╠é╛üI',0
  158.     .even
  159. over_mess:
  160.     .dc.b    'éfé`élédü@énéuédéq',0
  161.     .even
  162. no_mess:
  163.     .dc.b    'ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@ü@',0
  164.     .even
  165. score_mess_1:
  166.     .dc.b    'ô╛ô_üF',0
  167.     .even
  168. score_mess_2:
  169.     .dc.b    '     0',0
  170.     .even
  171. high_score_mess:
  172.     .dc.b    'ì┼ìéô╛ô_üF',0
  173.     .even
  174. stage_high_score_mess:
  175.     .dc.b    'âXâeü[âW',0
  176.     .even
  177. *---------------------------------------
  178.     .bss
  179.     .even
  180. chara_data:
  181.     .ds.b    CHARA_DATA*2+ETC_DATA*6
  182. v_sp_reg:
  183.     .ds.b    280
  184. v_sp_reg_end:
  185. *---------------------------------------
  186.     .end
  187.